Plot[Sqrt[x Cot[x/2]]/2, {x, 0, Pi/2}]